(tooltip-gud-print-command): Add server prefix to the

print command for gdb to keep it out of the command history.

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index 7fd5533639d0c681b375d9007fbcdc267a46c6c5..a7d734516f2804cb564f15a540cc1660a1946533 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -482,7 +482,8 @@ If TOOLTIP-GUD-DEREFERENCE is t, also prepend a `*' to EXPR."
   (when tooltip-gud-dereference
     (setq expr (concat "*" expr)))
   (case tooltip-gud-debugger
-    ((gdb dbx) (concat "print " expr))
+    (gdb (concat "server print " expr))
+    (dbx (concat "print " expr))
     (xdb (concat "p " expr))
     (sdb (concat expr "/"))
     (perldb expr)))